﻿Imports System.Data.OleDb
Public Class Tags
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub
    Protected Function getstar(ByVal stars As Integer)
        Dim retval As String = ""
        For i = 1 To stars
            retval = retval + "*"
        Next
        Return retval

    End Function
   
    Protected Sub SqlDataSource1_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceSelectingEventArgs) Handles SqlDataSource1.Selecting

    End Sub


End Class